Function ColNo( As String) As Integer

    ColNo = Cells(1, ).Column

End Function